Makroaktivierung erzwingen

Konni · 2007-11-28T18:29:24+00:00

Hallo Freaks, in meiner Mappe, die ohne Makros kein Ergebnis bringt, sind mehrere Menuepunkte deaktiviert. Das Ganze funktioniert nur, wenn beim Start der Mappe die Makros auch aktiviert werden. Wie kann man den Start der Mappe bei deaktivierten Makros verhindern? Geht vermutlich nicht, oder doch? Ich will damit erreichen, dass im Besonderen der Menuepunkt "Extras" nicht aktiviert wird (wegen Passwort .....; Ihr wisst schon). Die Antwort ahne ich schon, doch ein Versuch im Forum ist es wert! Vielen Dank und viele Grüße: Konni

Hallo Rene,
nachstehend mein Code beim Mappenstart:
Option Explicit


Private Sub workbook_open()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:="xxx"
Worksheets("A2").Visible = True
'Schaltflächen ausblenden
Worksheets("A2").Activate
ActiveSheet.Shapes("Button 33").Visible = True
ActiveSheet.Shapes("Button 34").Visible = False
ActiveSheet.Shapes("Button 36").Visible = False
Worksheets("A2").Protect Password:="xxx"
Worksheets("W1-W2").Protect Password:="xxx"
Worksheets("W3-W4").Protect Password:="xxx"
Worksheets("W5-W6").Protect Password:="xxx"
Worksheets("W7-W8").Protect Password:="xxx"
Worksheets("W9").Protect Password:="xxx"
Worksheets("E1 E2").Protect Password:="xxx"
Worksheets("A1").Protect Password:="xxx"
Worksheets("W6,W9").Protect Password:="xxx"
Worksheets("Baulstg.").Protect Password:="xxx"
Worksheets("LB Diagramm").Protect Password:="xxx"
Select Case Environ("UserName")
Case ("Username")
Worksheets("A2").Visible = True
'ActiveSheet.Protect Password:="xxx"
'xlVeryHidden
Case Else
Worksheets("A1").Visible = False
Worksheets("W6,W9").Visible = False
Worksheets("Baulstg.").Visible = False
Worksheets("LB Diagramm").Visible = False
End Select
ActiveWorkbook.Protect Password:="xxx"
Worksheets("A2").Select
ActiveSheet.Protect Password:="xxx"
Application.ScreenUpdating = True
End Sub

Ich kann kein VBA. Alles habe ich mit Hilfe von Forumsmitgliedern und teilweise Makrorekorder zusammengebastelt.
Mit einem zusätzlichen Tabellenblatt bekomme ich hin. Aber wie setze ich "xlveryHidden" ein?
Vielen Dank und Gruß: Konni

Zum Beispiel
Beim Schließen der Arbeitsmappe (in DieseArbeitsmappe). Die Makros musst Du entsprechen anpassen


Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Unprotect "DeinKennwort" 'Kennwort in Anführungszeichen
With ThisWorkbook
.Sheets("Dummy").Visible = True
.Sheets("Tabelle1").Visible = xlVeryHidden
.Sheets("Tabelle2").Visible = xlVeryHidden
End With
ThisWorkbook.Protect "DeinKennwort"
ActiveWorkbook.Save
End Sub

Beim Öffnen


Private Sub Workbook_Open()
ThisWorkbook.Unprotect "DeinKennwort" 'Kennwort in Anführungszeichen
With ThisWorkbook
.Sheets("Tabelle1").Visible = True
.Sheets("Tabelle2").Visible = True
.Sheets("Dummy").Visible = False
End With
ThisWorkbook.Protect "DeinKennwort"
End Sub

Forumthread: Makroaktivierung erzwingen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial