Checkbox mit PW - Abbruch Code hinzufügen

[atilla]

Hallo,

Diesen teil des von Dir gezeigten Codes:

Code:

Sub m_eitel()
For j = 1 To 2
 Me("Textbox" & j).Enabled = Environ("username") = "eitel"
Next
End Sub

in das Modul der Tabelle mit den Chekboxen hinein kopieren.
Rechtsklick auf den Tabellenreiter und Code anzeigen , in das geöffnete Fenster


Folgenden Teil:

Code:

Private Sub Workbook_Open()
Call m_eitel
End Sub

In das Code Modul von DieseArbeitsmappe

[Käpt'n Blaubär]

Hallo,

mag sein, daß ich falsch liege, aber ich tippe zunächst mal wieder ganz vorsichtig auf Option Explicit

[atilla]

Hallo Peter,

mag vielleicht mit ein Grund führ Fehlermeldungen sein, aber es würde so, wie es gezeigt wird auch mit Opium Explicit nicht gehen.

Denn Me. bedeutet, dass der Code entweder in eine Userform oder hinter eine Tabelle gehört.
Und wenn der Code hinter einer Tabelle stehen würde, dann dürfte das aber nicht mit da stehen:

Code:

Private Sub Workbook_Open()

Und so, wie eitel das zeigt steht alles an einer Stelle. Das geht nicht.

[snb]

Wenn's um ActiveX Steurelemente handelt.
Wenn's um checkboxes geht,
Wenn die Namen der Checkboxes Checkbox1 und Checkbox2 sind,
Wenn die Codename des Arbeitsblattes 'Sheet1' ist

Code:

Sub Private Workbook_open()
  For j = 1 To 2
   sheet1.oleobjects("CheckBox" & j).Enabled = Environ("username") = "eitel"
  Next
End Sub

oder

Code:

Sub Private Workbook_open()
   For j = 1 To 2
      sheets(1).oleobjects("CheckBox" & j).Enabled = Environ("username") = "eitel"
   Next
End Sub

oder

Code:

Sub Private Workbook_open()
   With sheets(1).CheckBox1
       .Enabled = Environ("username") = "eitel"
       sheets(1).CheckBox2.Enabled =.Enabled
   End With
End Sub

[RPP63]

aber es würde so, wie es gezeigt wird auch mit Opium Explicit nicht gehen.

Aber man wird ruhiger dabei …

*DuckUndWeg*

[atilla]

Hi Ralf,

ja, manchmal kann das hilfreich sein. :26: