Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro funktioniert nicht

Makro funktioniert nicht
01.03.2006 10:24:44
Dieter
Habe eine Mappe mit einigen Tabellen. In den Tabellen sind kleine Makros eingebaut , ohne die einige Berechnungen nicht durchgeführt werden. Deshalb soll die Mappe nur starten, wenn Makros aktiviert sind. Das funktioniert auch (Tabellen werden bis auf die erste ausgeblendet). Hinzu kommt jedoch, dass in den Tabellen nur auf die nicht gesperrten Zellen geklickt werden können soll. Getrennt voneinander funktionieren die Makros ohne Probleme. Wenn aber der Code wie unten eingbaut wird, sind die Blätter komplett gesperrt und man kann nirgens hinklicken. Hebt sich das gegenseitig auf? Hat jemand eine Idee?

Private Sub Workbook_Open()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVisible
Next
Sheets(1).Visible = xlSheetVeryHidden
' (der folgende Bereich laüft einzeln als 

Private Sub Workbook_Open() ohne Probleme)
Worksheets("Error").EnableSelection = xlUnlockedCells
Worksheets("Jan").EnableSelection = xlUnlockedCells
Worksheets("Feb").EnableSelection = xlUnlockedCells
Worksheets("Mrz").EnableSelection = xlUnlockedCells
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Sheets(1).Visible = xlSheetVisible
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVeryHidden
Next
ThisWorkbook.Save
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro funktioniert nicht
01.03.2006 12:50:32
Dieter
Problem gelöst:

Private Sub Workbook_Open()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVisible
Next
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVisible
Next
Sheets(2).Visible = xlSheetVisible
Worksheets("Jan").EnableSelection = xlUnlockedCells
Worksheets("Feb").EnableSelection = xlUnlockedCells
Worksheets("Mrz").EnableSelection = xlUnlockedCells
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVisible
Next
Worksheets("Error").Visible = xlSheetVeryHidden
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Sheets(1).Visible = xlSheetVisible
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVeryHidden
Next
ThisWorkbook.Save
End Sub

Anzeige
AW: Makro funktioniert nicht
01.03.2006 13:00:03
Herbert
hallo Dieter,
wenn du Möglichkeit hast es so zu machen,
so funktionierts...

Private Sub Workbook_Open()
Dim i As Integer
For i = 2 To Sheets.Count
With Sheets(i)
.Visible = xlSheetVisible
.EnableSelection = xlUnlockedCells
End With
Next
Sheets(1).Visible = xlSheetVeryHidden
End Sub

gruß Herbert

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige