Tabellenblattname nicht änderbar

Tabellenblattname nicht änderbar. 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
           
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.