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
Hallo,
mag sein, daß ich falsch liege, aber ich tippe zunächst mal wieder ganz vorsichtig auf Option Explicit
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.
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
(02.02.2017, 16:21)atilla schrieb: [ -> ]aber es würde so, wie es gezeigt wird auch mit Opium Explicit nicht gehen.
Aber man wird ruhiger dabei …
*DuckUndWeg*
Hi Ralf,
ja, manchmal kann das hilfreich sein. :26: