Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 17:16:08
Randomize, RND, Timer() , (@Onur, Opawinni)
08.05.2024 16:47:59
Formel für 1, Ziffer nach einem Teilstring finden
08.05.2024 16:25:23
'Fehler in der Zwischenablage' beim Abspielen von Ma
08.05.2024 15:31:31
Excel schließt fälschlicherweise alle Workbooks obwohl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makros gezielt zulassen oder Ausführung verweigern

Makros gezielt zulassen oder Ausführung verweigern
01.09.2004 14:42:28
michel
Hallo Excel-Gemeinde,
ich stehe vor einem kleinen Problem und finde gerade nicht den nötigen Ansatz:
mehrere Nutzer haben Zugriff auf eine Datei, die für den "normalen" User nur ein Tabellenblatt mit Schaltflächen enthält, über die er die "Anwendung" bedient. Alle weiteren Tabellenblätter sind mittels veryhidden ausgeblendet und sollen ihm auch nicht zur Verfügung stehen. Ein kleiner Kreis soll allerdings auf ein paar Blätter mehr Zugriff erhalten. Und da kommt mein Problem: Ich will dieser Gruppe über einen Admin-Button die Blätter einblenden. Sitzt aber einer meiner Spezialisten bei den normalen Usern vor der Anwendung besteht durchaus die Chance, dass er kurz ein eigenes Makro schreibt und sich so alle Blätter einblendet. Das wollte ich durch ein Worksheet_Activate, das das Blatt wieder auf veryhidden setzt verhindern. Allerdings klappt dann das mit dem Admin-Button nimmer, denn dann blend ich die Blätter ein und wenn der User es anklickt blendet ein activate-Ereignis es wieder aus....
Ich sehe vor lauter Bäumen keinen Wald mehr..hat jemand die zündende Idee?
Danke im Voraus
Michel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makros gezielt zulassen oder Ausführung verweigern
:
das kannst du knicken. Füge folgenden Code in eine neue Mappe ein und ersetze MeineDatei.xls durch deinen Dateinamen. Schwupps, sind alle Blätter sichtbar.
Application.EnableEvents=False am Ende unterbindet auch die Ausführung der Sheet_Activate-Makros in deiner Datei.

Sub test_einblenden()
Dim sh As Worksheet
For Each sh In Workbooks("MeineDatei.xls").Sheets
sh.Visible = xlSheetVisible
Next
Application.EnableEvents = False
End Sub

Gruß
AW: Makros gezielt zulassen oder Ausführung verweigern
ransi
hallo michel
zündet zwar nicht so ganz die idee, aber anderer ansatz:
geht es vieleicht wenn du mit application.username eine abfrage machst wer da grad vor dem pc sitzt?
hat aber den haken das xl den namen aus dem extras-optionen-allgemein-benutzername ausliest.
irgendwo hab ich mal einen code gesehen der den usernamen aus der registry ausliest.
wäre glaub ich sicherer.
das ganze könnte dann so gehn:

Private Sub Worksheet_Activate()
if username <> berechtigter then activesheet.veryhidden =true
anderes sheet.activate
end if
End Sub

ransi
Anzeige
AW: Makros gezielt zulassen oder Ausführung verwei
Uduuh
Hallo,
ab xl2000 ist das
environ("username")
Ansonsten geht's per API. Findest du auch auf meiner HP bei den Tipps.
Gruß aus'm Pott
Udo
http://www.excelerator.de

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige