|
▼まつ君 さん:
>▼IROC さん:
>>ブックの保護では駄目なのですか?
>普通はそう考えますよね。
Protect で制御可能
ThisWorkbook.Protect
で動的に制御するといいです
Sheet3をブロックする場合。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim b As Boolean
b = (StrComp(Sh.Name, "Sheet3") = 0)
ThisWorkbook.Protect Structure:=b
End Sub
[XL] ワークブック内のシートを並べ替える方法
http://support.microsoft.com/default.aspx?scid=kb;ja;812386
>すみません。1つ教えてください。
>ブックのシート構成が”基準”、”1工程”、”2工程”、”3工程”、”全工程”とあります。
>そこでシートの1工程から順番に4工程のシートまでを順番に選択するところまでをどう記述するのか割りません。
>
>subシート内容のコピー()
>sheets("1工程”).range("**:**").select
>selection.copy
>sheets("全工程").select
>range("a65536").end(xlup).select
>activesheet.paste
>同様にシート2工程・・・4工程とシートを切り替えます。
>その後のプログラムは同じです。
>シートネームを変数を使ってシートを切り替えるようにしたいのですが・・・
最初から4つと決めているなら
Dim i As Long
Dim w As Worksheet
For i = 1 To 4
If i = 1 Then Set w = Sheets("1工程")
If i = 2 Then Set w = Sheets("2工程")
If i = 3 Then Set w = Sheets("3工程")
If i = 4 Then Set w = Sheets("4工程")
ここに処理
Next i
|
|