Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappe freigeben sperren

Arbeitsmappe freigeben sperren
16.11.2012 08:54:03
Pepi
Hallo zusammen
Wenn eine Arbeitsmappe freigegeben wird, funktionieren offenbar die Makros nicht mehr - dies darf auf keinen Fall passieren.
Wie kann ich diese Funktion ausschalten? - habe leider im WEB keine brauchbare Antwort gefunden.
vielen Dank für Tipps
Pepi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe freigeben sperren
20.11.2012 14:11:29
Klaus
Hallo Pepi,
so wirklich verhindern kann man das wohl nicht. Ich hab dazu diese Lösung,
If activeworkbook.MultiUserEditing Then
Msgbox "Deaktivieren Sie bitte die Freigabe, wenn Sie Makros verwenden wollen."
Exit Sub
End if
die ich hier gefunden habe:
http://www.office-loesung.de/ftopic486928_0_0_asc.php
Grüße,
Klaus M.vdT.

AW: Arbeitsmappe freigeben sperren
20.11.2012 15:51:26
Pepi
Hallo Klaus
Ich habe dieses Makro auch gefunden, doch wo soll ich es einbauchen, dass es voll zum tragen kommt?
Ich dachte, dass mann dies Funktion einfach ausschalten kann, wie drucken oder speichern. Ich habe auch das foldende Makro auf der von Dir empfohlenen Seite gefunden, doch passiert nichts mit Office-2010. Evt ist die ID eine andere.
Private Sub Workbook_Deactivate()
Dim CB
For Each CB In Application.CommandBars.FindControls(ID:=2040)
CB.Enabled = True
Next
End Sub

Da nach dem Freigeben durch einen Benutzer die Makros deaktiviert sind, macht auch ein Makro, das die Freigabe wieder deaktiviert keinen Sinn.
mfg
Pepi

Anzeige
"FindControls(ID:=?)" für ArbeitsmappeFreigeben
21.11.2012 08:16:39
Klaus
Da nach dem Freigeben durch einen Benutzer die Makros deaktiviert sind, macht auch ein Makro, das die Freigabe wieder deaktiviert keinen Sinn.
Doch!
Geh mal Schritt für Schritt ran: Zunächst ist die Mappe NICHT freigegeben und die Makros laufen. Wenn ein Makro das Freigeben verhindert, kann die Mappe nicht freigegeben werden. Wenn die Mappe nicht freigegeben werden kann, wird das Makro nie deaktiviert. Das Makro verhindert die Freigabe. LOOP.
Natürlich könnte ein User "einfach" die Datei ohne Makro starten und freigeben. Ein User könnte aber auch die Datei öffnen, eventuelle Passwörter hacken und den VBA Code löschen, der das Freigeben verhindern soll. Oder er könnte solange mit einem Schraubenschlüssel auf dich einschlagen, bis du selbst die Datei freiwillig freigibst (ok, übertrieben, aber du verstehst meinen Punkt). Darum bleibe ich dabei: Am meisten Sinn macht ein Hinweis (Textfeld, MsgBox ...) dass die Datei nicht freigegeben werden darf! Will der User trotzdem diese Option nutzen, ist das bösartige Sabotage und dagegen kannst du dich nicht wehren.
Im übrigen halte ich persönlich nichts davon, in den Menüleisten fremder User rumzufuschen - entsprechende Kommentare stehen auch im verlinkten Thread. Aber ich bin nicht die Excelpolizei, darum musst du das für dich selbst entscheiden.
Das gesuchte Control-ID fürs 2010er Excel kenne ich nicht, darum lasse ich den Tread offen und ändere den Betreff auf etwas aussagekräftigeres.
Grüße,
Klaus M.vdT.

Anzeige
AW: "FindControls(ID:=?)" für ArbeitsmappeFreigeben
22.11.2012 15:57:54
Pepi
Hallo Klaus
Ich habe nun das Markoschnipsel in einige wichtige Makros eingebaut. Ich gehe auch eher von Fehlbedienung aus und nicht von kriminellen Absichten - nochmals vielen Dank
mfg
Pepi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige