Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz verhindert VBA ausführung

Blattschutz verhindert VBA ausführung
18.04.2006 00:14:31
Armin
Hallo schon wieder eine Frage,
in meiner Tabelle ist ein VBA welches auch funktioniert, dank Tasso.
Es geht leider nur so lange ich den Blattschutz nicht anschalte, der ist aber dringend Notwendig.Bin VBA Anfänger :-))
Beispieltabelle:
https://www.herber.de/bbs/user/32942.xls
gruss Armin

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz verhindert VBA ausführung
18.04.2006 00:40:42
Matthias
Hallo Armin,
in "DieseArbeitsmappe":

Private Sub Workbook_Open()
Sheets("Tabelle1").Protect Password:="123", UserInterfaceOnly:=True
End Sub

Das Kennwort natürlich anpassen.
Gruß Matthias
AW: Blattschutz verhindert VBA ausführung
18.04.2006 00:46:35
Tassos
Hallo Armin,
Mal eine Variante:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dein Code...
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'nur Beispiel
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 5 Or Target.Row > 1000 Then Exit Sub ' anpassen
If Target.Column < 5 Or Target.Row > 112 Then Exit Sub ' anpassen
ActiveSheet.Unprotect
End Sub

Gruss
Tassos
Anzeige
AW: Blattschutz verhindert VBA ausführung
18.04.2006 11:53:19
Armin
Hallo erst mal Danke für die Bemühungen,
leider gehen alle drei Möglichkeiten nicht, oder hab ich einen Fehler
bei der übernahme in meine TAbelle gemacht.
Fehlermeldung entweder: Laufzeitfehler 1004 oder es lassen sich Werte eingeben aber Hintergrund bleibt weiß.
gruss Armin

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige