button (activex control) work on protected sheet

#1
excentryc

Posted 12 January 2018 - 13:31

Active Member

Grup: Members
Posts: 1,462
Înscris: 15.07.2005

Salut!
Am un sheet ptrotejat dar butonul de hide/unhide a coloanelor P:V nu mai functioneaza decat daca deprotejez foaia de lucru.
Codul mai jos:

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "P:W"
If ToggleButton1.Value Then
	Application.ActiveSheet.Columns(xAddress).Hidden = True
Else
	Application.ActiveSheet.Columns(xAddress).Hidden = False
End If
End Sub

Ce trebuie sa fac?

Edited by MarianG, 12 January 2018 - 14:24.
code tags

Back to top

#2
navistar_eagle

Posted 12 January 2018 - 14:30

Member

Grup: Members
Posts: 958
Înscris: 16.11.2017

Incearca :

 Application.ActiveSheet.Columns(xAddress).Hidden = ToggleButton1.Value

Edited by navistar_eagle, 12 January 2018 - 14:31.

Back to top

#3
excentryc

Posted 12 January 2018 - 14:37

Active Member

Grup: Members
Posts: 1,462
Înscris: 15.07.2005

nu merge

Back to top

#4
excentryc

Posted 12 January 2018 - 15:52

Active Member

Grup: Members
Posts: 1,462
Înscris: 15.07.2005

am incercat asta si a mers

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "P:W"
ActiveSheet.Unprotect ""
If ToggleButton1.Value Then
	Application.ActiveSheet.Columns(xAddress).Hidden = True
	ActiveSheet.Protect ""
  Else:
  Application.ActiveSheet.Columns(xAddress).Hidden = False
  ActiveSheet.Protect ""
End If
End Sub

Edited by excentryc, 12 January 2018 - 15:59.

Back to top

#5
navistar_eagle

Posted 13 January 2018 - 10:59

Member

Grup: Members
Posts: 958
Înscris: 16.11.2017

testeaza de curiozitate asa:

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "P:W"
ActiveSheet.Unprotect ""
Application.ActiveSheet.Columns(xAddress).Hidden = ToggleButton1.Value
ActiveSheet.Protect ""
End Sub

Edited by MarianG, 13 January 2018 - 19:03.
removed quote

Back to top

#6
excentryc

Posted 13 January 2018 - 15:16

Active Member

Grup: Members
Posts: 1,462
Înscris: 15.07.2005

O sa incerc ... dar numai luni mai pot ca fisierul e la serviciu.
Merci anyway.

Edited by MarianG, 13 January 2018 - 19:03.
removed quote

Back to top

#7
excentryc

Posted 16 January 2018 - 12:53

Active Member

Grup: Members
Posts: 1,462
Înscris: 15.07.2005

navistar_eagle, on 13 ianuarie 2018 - 10:59, said:

testeaza de curiozitate asa:

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "P:W"
ActiveSheet.Unprotect ""
Application.ActiveSheet.Columns(xAddress).Hidden = ToggleButton1.Value
ActiveSheet.Protect ""
End Sub

Merge !

Back to top

Anunturi

Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

button (activex control) work on protected sheet

#1 excentryc Posted 12 January 2018 - 13:31

#2 navistar_eagle Posted 12 January 2018 - 14:30

#3 excentryc Posted 12 January 2018 - 14:37

#4 excentryc Posted 12 January 2018 - 15:52

#5 navistar_eagle Posted 13 January 2018 - 10:59

#6 excentryc Posted 13 January 2018 - 15:16

#7 excentryc Posted 16 January 2018 - 12:53

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
excentryc

Posted 12 January 2018 - 13:31

#2
navistar_eagle

Posted 12 January 2018 - 14:30

#3
excentryc

Posted 12 January 2018 - 14:37

#4
excentryc

Posted 12 January 2018 - 15:52

#5
navistar_eagle

Posted 13 January 2018 - 10:59

#6
excentryc

Posted 13 January 2018 - 15:16

#7
excentryc

Posted 16 January 2018 - 12:53