Hallo Zusammen,
da ich ein kompletter Laie im Bereich der VBA bin!
Und ich druck von meinen Chef bekomme, die Excel Liste nach seiner Vorstellung auf zubauen.
Jetzt brauche ich einfach euer Hilfe.
Die Excel Liste hat folgende Reiter
- Kalender
-Auswertung
-Krankmeldung
-Datenbank
Auf dem Reiter "Kalender" soll ein Button programmiert sein, der die restlichen Reiter einblendet. Aber die Einblendung soll nur funktionieren, wenn man das Passwort hat. Beim speicher und schließen müssen die Reiter wieder ausgeblendet werden.
Kann man sowas erstellen?
Wenn ja, wie funktioniert es. Bitte die Erklärung für Dummies.
Vielen Dank im Vorraus.
Mit freundlichen Grüßen
Seb 2019
Hallöchen,
aber bisschen VBA hast Du schon mal kennen gelernt? Gibt ja auch Laienküstler
Das Ausblenden kann man z.B. aufzeichnen. Da bekommst DU so was:
Code:
Sub Makro1()
'
' Makro1 Makro
'
'
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub
Gekürzt sieht das so aus:
Code:
Sub Makro1()
Sheets("Tabelle2").Visible = False
End Sub
Die Codezeile zum Ausblenden fügst Du im Codemodul von DieseArbeitsmappe im Ereignismakro BeforeSave ein und kopierst und änderst die Kopien für die anderen Blätter.
Wenn Du nett zu Deinem Chef sein willst blendest Du sie in AfterSave auch wieder ein. Sonst muss er die Datei nach dem Speichern neu Öffnen, wenn er weiter arbeiten will.
Im Ereignismakro Open machst Du das Gegenteil, also statt False dann True.
Nächster Step wäre dann die Passwortabfrage. Schau mal was man z.B. mit INPUTBOX anstellen kann.
Letzter Schritt wäre dann noch eine Änderung hinsichtlich Visible. Bei Visible kann man die Blätter manuell wieder einblenden. Schaue dazu mal nach HIDDEN ...
Hallo André,
vielen Dank für deinen Tipps und vor allem das du mir die Chance geben hast selber an einer Lösung zuarbeiten. -extrem cooles Vorgehen-
Ich habe jetzt mal was geschrieben und komme leider nicht mehr weiter.
Wenn ich auf den Button "Datenbank einblenden" wird das Marko gefühlt nicht gestartet/aktiviert und ich finde den Fehler leider nicht.
Kannst du mir helfen und vor allem mir meinen Fehler erklären?
Vielen Dank
Hallöchen,
eventuell hast Du nur ein falsches Passwort eingegeben (z.B. bei ausgeschaltetem Ziffernblock / Num-Taste), bei mir klappts.
Du könntest zwei Zeilen zusammenfassen und vor dem Verlassen des Makros noch eine Meldung ausgeben:
statt
If Passwort = "" Then Exit Sub
If Passwort = "1234" Then
dann
If Passwort <> = "1234" Then MsgBox "Falsches Passwort": Exit sub
(und unten das EndIf noch entfernen)
Nur am Rande:
Da die übrigen Blätter, zumindest aber die Krankmeldungen, nicht von anderen Mitarbeitern angesehen werden dürfen(!), wird Dir bei diesem Vorgehen der Datenschutzbeauftrage oder auch der Betriebsrat derbe auf die Füße steigen!
Und mit was?
Richtig, mit Recht!
Gruß Ralf
Hab mir jetzt mal die Datei angesehen.
Meine obigen Bedenken bleiben natürlich bestehen.
Dennoch:
Wenn Du ausblendest, solltest Du auf xlSheetVeryHidden setzen.
Mit xlSheetHidden reicht ja bereits ein Rechtsklick auf den Tabellenreiter und "Einblenden", um ohne Passwort die übrigen Sheets einzublenden.
Hallo Zusammen,
vielen Dank André für deinen Hilfe und das du mir die ersten Schritte mit den Makros erleichter hast! Und das Ding hat mich irgendwie gepackt.
Vielen dank für die Anmerkung des Datenschutzbeauftragen. Ich schätze so Anmerkung, die dafür sorgen, das man nicht ins offene Messer laufen.