auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

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

Mehr Tipps: Makros löschen sich selbst

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt