| ThisWorkbook.Protect Structure:=True, CommandBars("ply").Enabled = False |
|
|
| Private Sub Workbook_Open() |
| Call tab_name |
| End Sub |
|
| Private Sub Workbook_SheetActivate(ByVal Sh As Object) |
| Call tab_name |
| End Sub |
|
| Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) |
| Call tab_name |
| End Sub |
|
| Private Sub tab_name() |
| If ActiveSheet.Name = "tabellenblattname" Then |
| ThisWorkbook.Protect Structure:=True, Password:="deinpasswort" |
| Else |
| ThisWorkbook.Unprotect Password:="deinpasswort" |
| End If |
| End Sub |
| |
|
| Verhindert nur den Zugriff auf das Kontextmenü aller Tabellenblätter (den |
| Begriff "ply" nicht ändern: "ply" ist das Kontextmenü des Tabellenblattes!) |
|
| Private Sub Worksheet_Activate() |
| Application.CommandBars("ply").Enabled = False |
| End Sub |
|
| Private Sub Worksheet_Deactivate() |
| Application.CommandBars("ply").Enabled = False |
| End Sub |
|
| Achtung: vor Verlassen von Excel muss das Kontextmenü wieder eingeblendet |
| werden, sonst bleibt das für immer verschwunden: |
| Private Sub Workbook_BeforeClose(Cancel As Boolean) |
| Application.CommandBars("ply").Enabled = True |
| End Sub |
|
zurück