Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA - Prüfen ob Blatt geschützt

Excel VBA - Prüfen ob Blatt geschützt
30.12.2022 09:12:31
Frank
Hallo zusammen,
ich möchte mit einem kleinen VBA-Code prüfen ob ein Tabellenblatt geschützt ist und dann weitere Aktionen ausführen - leider wird der Befehl "If Tabelle16.Protect = True" nicht akzeptiert:

Private Sub Worksheet_Change(ByVal Target As Range)
'Prüfen, ob "ja" in Zelle B70 steht
If Range("B70").Value = "ja" Then
If Tabelle16.Protect = True
Tabelle16.Unprotect
Rows("72:75").EntireRow.Hidden = False
Tabelle16.Protect
ElseIf Tabelle16.Protect = False
Rows("72:75").EntireRow.Hidden = False
End If
ElseIf Range("B70").Value = "nein" Then
If Tabelle16.Protect = True
Tabelle16.Unprotect
Rows("72:75").EntireRow.Hidden = True
Tabelle16.Protect
ElseIf Tabelle16.Protect = False
Rows("72:75").EntireRow.Hidden = True
End If
End If
End Sub
Hat vielleicht jemand eine Idee wie ich das lösen kann?
Danke vorab.
Gruß
Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA - Prüfen ob Blatt geschützt
30.12.2022 09:18:20
Frank
Habe es selber gefunden ... es fehlte die Then Bedingung .. typischer Anfängerfehler :-)
AW: Excel VBA - Prüfen ob Blatt geschützt
30.12.2022 09:26:31
Frank
Fubktioniert leider doch noch nicht. Es kommt die Meldung "Fehler beim Kompilieren: Function oder Variable erwartet" auf. Hat jemand eine Idee?

Private Sub Worksheet_Change(ByVal Target As Range)
'Prüfen, ob "ja" in Zelle B70 steht
If Range("B70").Value = "ja" Then
If Tabelle16.Protect = True Then
Tabelle16.Unprotect
Rows("72:75").EntireRow.Hidden = False
Tabelle16.Protect
ElseIf Tabelle16.Protect = False Then
Rows("72:75").EntireRow.Hidden = False
End If
ElseIf Range("B70").Value = "nein" Then
If Tabelle16.Protect = True Then
Tabelle16.Unprotect
Rows("72:75").EntireRow.Hidden = True
Tabelle16.Protect
ElseIf Tabelle16.Protect = False Then
Rows("72:75").EntireRow.Hidden = True
End If
End If
End Sub
Danke vorab.
Anzeige
AW: Excel VBA - Prüfen ob Blatt geschützt
30.12.2022 09:44:03
MCO
Moin!
Ich kann erkennen, was Tabelle16 ist.
Der Chatbot gibt es für einen definierten Tabellenbereich wieder:

Sub CheckIfTableIsProtected()
Dim myTable As ListObject
'Set the table that you want to check
Set myTable = ActiveSheet.ListObjects("Tabelle16")
'Check if the table is protected
If myTable.ProtectContents Then
MsgBox "The table is protected."
Else
MsgBox "The table is not protected."
End If
End Sub
Gruß, MCO
AW: UserInterfaceOnly
30.12.2022 09:47:02
hary
Moin
Frage ist Tabelle6 die in welcher der Changecode steht?
Soll wirklich bei jeder Zellaenderung der Code ausgefuehrt werden?
Dafuer gibt es UserInterfaceOnly:=True. Lasst Codeaktionen zu.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect , UserInterfaceOnly:=True
Rows("72:75").Hidden = Not Range("B70").Value = "ja"
End Sub
gruss hary
Anzeige

312 Forumthreads zu ähnlichen Themen

perVBA prüfen, ob Internetadresse vorhanden
Rüdiger

Liebe Fachleute für InternetExplorer aus Excel-VBA heraus!
ich habe Excelsheet mit Adressen u.a. auch URLs (und Mailadr.)
ich möchte prüfen, ob die in meiner Liste (eine Spalte) erfassten URLs seit der letzten Mailingsaktion vor einem Jahr noch erreichbar sind:
(In einem weiteren Sc...
19.10.2009 13:06:55
Thread-ID: 1110593
6 Beiträge
Anzeige
Wie Prüfen ob Worksheet vorhanden
Holger

Hallo,
folgendes Problem.
Ich öffne aus einer Excel Datei eine andere Excel Datei. Hier muss ich prüfen,
ob es zwei WorkSheets gibt.
01 SH1 TH1
02 SH1 TH2
Wenn es einen von beiden nicht gibt, soll eine Fehlermeldung erscheinen.
Ich habe das hier mal programmiert aber...
28.06.2010 14:48:02
Thread-ID: 1164340
4 Beiträge
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Anzeige
Prüfen ob Daten in anderer Datei vorhanden
Julia

Hallo,
ich habe folgendes Problem:
Datei 1 ist eine Tabelle in der Buchungen erfasst werden. Relevant für mich ist hierbei die 2. Spalte in der der Buchungsmonat erfasst wird.
Datei 2 ist meine Planung für das nächste Jahr. Hier habe ich zu jedem Monat meine Spalten SOLL und IST. F...
29.11.2012 15:49:15
Thread-ID: 1288606
6 Beiträge
prüfen ob Tabellenblatt vorhanden und daten überne
Gehrmann

Guten Abend liebe Excelgemeinde
Suche nun sch 1 Stunde im wirklich gutem Archiv, finde aber keine Lösung für mein Problem da ich es möglichst ohne VBA realisieren möchte.
Jeden Monat erstelle ich eine neue Datei wo ich jeden Tag ein neues Tabellenblatt mit entsprechenden Datum dazufüge....
16.03.2013 19:47:59
Thread-ID: 1304365
4 Beiträge
[VBA-Schleife] Worksheets öffnen und speichern
Nico

Hallo,
ich möchte mit verschiedenen Filtern mehrere Worksheets aus einer Datentabelle erstellen. Im Prinzip klappt auch alles.
Einziges Problem:
Beim automatischen erstellen & schließen der Excel-Dateien tauchen unregelmäßig Fehlermeldungen auf.
Einige erstelle Dateien in d...
26.03.2013 11:12:30
Thread-ID: 1306027
3 Beiträge
Prüfen ob bestimmtes Tabellenblatt vorhanden
Markus

Folgendes Problem ...
ich möchte in einer Mappe2 auf eine Zelle aus einer Tabelle"XX" aus Mappe1 verweisen.
Die Tabelle"XX" ist aber unter Umständen nicht vorhanden.
Bei normalem Verweis erscheint dann ja immer #Bezug
um das zu vermeiden, möchte ich vorher prüfen ob es diese Ta...
05.11.2014 07:00:28
Thread-ID: 1390516
10 Beiträge
Prüfen ob Sheet vorhanden und wenn ja löschen
Elias

Hallo zusammen
Ich habe einen Updater. An und für sich funktioniert dieser. Jedoch muss ich jetzt noch eine zusätzliche Funktion einbauen, die mir immer einen Fehler anzeigt.
Aber zuerst mal hier der Code:
------------------------------------------------- Private Sub CommandButton1_...
22.01.2015 17:54:23
Thread-ID: 1404505
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
3
3
7
5
3
2
9
3
7
4
13
2
4
3
2
3
5
4
10
2
4
3
2