Herbers Excel-Forum - das Archiv
Arbeitsblatt vor Benutzer verbergen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Arbeitsblatt vor Benutzer verbergen
von: ChS
Geschrieben am: 13.12.2006 15:50:15
Hallo zusammen,
ich schreibe derzeit an einem VBA-Skript, das Daten aus einem Arbeitsblatt ausliest, mit einer externen Quelle abgleicht, geänderte Daten in das Arbeitsblatt zurückschreibt, und in einem anderen Arbeitsblatt derselben Arbeitsmappe ein Ergebnis schreibt.
Ich möchte nun, dass ein normaler Benutzer zwar das Ergebnisblatt sehen und verändern kann, aber nicht das Datenblatt sehen kann (nur mit Passwort). Oder wenigstens das Datenblatt nicht ohne Passwort verändern kann; das Skript soll das aber können (das Skript selbst ist mit Passwort vor dem Betrachten geschützt).
Ist etwas derartiges möglich?
Geht das notfalls, wenn ich zwei getrennte Arbeitsmappen verwende?
Gruß,
Christian
Betrifft: AW: Arbeitsblatt vor Benutzer verbergen
von: Reinhard
Geschrieben am: 13.12.2006 16:00:30
Hi Christian,
Sub aus()
Worksheets(3).Visible = xlVeryHidden
End Sub
Sub ein()
dim Eingabe
Eingabe=inputbox("Passwort")
if Eingabe<>"Geheim" then exit sub
Worksheets(3).Visible = True
End Sub
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Betrifft: AW: Arbeitsblatt vor Benutzer verbergen
von: ChS
Geschrieben am: 13.12.2006 16:15:24
Danke, das ist genau was ich suche!
Gruß,
Christian