[教えて！VBA] 第10回 Excelのシートの移動・削除を禁止する方法 ＆ マクロ実行時だけ許可するにはどうすればいいの？？

1ThisWorkbook.Unprotect PassWord

 1Public Sub マクロ実行時だけ許可()
 2    
 3    On Error GoTo ErrorHandler
 4    
 5    '//一時的に解除
 6    ThisWorkbook.Unprotect "test"
 7    
 8    '//シート構成を操作する処理……
 9    
10ExitHandler:
11    
12    '//保護の復旧
13    ThisWorkbook.Protect "test"
14    
15    Exit Sub
16    
17ErrorHandler:
18
19    MsgBox "エラーが発生したため、マクロを終了します。", vbCritical
20        
21    GoTo ExitHandler
22        
23End Sub
24

 1Public Sub シート追加()
 2    
 3    Dim additinalSheetNumber As Long
 4    Dim vSheet As Object
 5    
 6    On Error GoTo ErrorHandler
 7    
 8    '//一時的に解除
 9    ThisWorkbook.Unprotect "test"
10    
11    '//表示中の追加シートの数を算出
12    additinalSheetNumber = 0
13    For Each vSheet In ThisWorkbook.Worksheets
14        If vSheet.Visible = True And InStr(vSheet.Name, "追加シート") > 0 Then
15            additinalSheetNumber = additinalSheetNumber + 1
16        End If
17    Next vSheet
18    
19    '//追加シートがすべて表示されているならば処理を終了
20    If additinalSheetNumber = 3 Then GoTo ExitHandler
21    
22    '//次の追加シートを表示
23    ThisWorkbook.Worksheets("追加シート" & (additinalSheetNumber + 1)).Visible = True
24    
25ExitHandler:
26    
27    '//保護の復旧
28    ThisWorkbook.Protect "test"
29    
30    Exit Sub
31    
32ErrorHandler:
33
34    MsgBox "エラーが発生したため、マクロを終了します。", vbCritical
35        
36    GoTo ExitHandler
37        
38End Sub

 1
 2Public Sub シート消去()
 3    
 4    Dim additinalSheetNumber As Long
 5    Dim vSheet As Object
 6    
 7    On Error GoTo ErrorHandler
 8    
 9    '//一時的に解除
10    ThisWorkbook.Unprotect "test"
11    
12    '//表示中の追加シートの数を算出
13    additinalSheetNumber = 0
14    For Each vSheet In ThisWorkbook.Worksheets
15        If vSheet.Visible = True And InStr(vSheet.Name, "追加シート") > 0 Then
16            additinalSheetNumber = additinalSheetNumber + 1
17        End If
18    Next vSheet
19    
20    '//追加シートがすべて非表示ならば処理を終了
21    If additinalSheetNumber = 0 Then GoTo ExitHandler
22    
23    '//最も連番の大きい追加シートを非表示
24    ThisWorkbook.Worksheets("追加シート" & additinalSheetNumber).Visible = False
25    
26ExitHandler:
27    
28    '//保護の復旧
29    ThisWorkbook.Protect "test"
30    
31    Exit Sub
32    
33ErrorHandler:
34
35    MsgBox "エラーが発生したため、マクロを終了します。", vbCritical
36        
37    GoTo ExitHandler
38        
39End Sub
40