button (activex control) work on protected sheet

#1
excentryc

Posted 12 January 2018 - 13:31

Active Member

Grup: Members
Posts: 1,242
Î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,242
Înscris: 15.07.2005

nu merge

Back to top

#4
excentryc

Posted 12 January 2018 - 15:52

Active Member

Grup: Members
Posts: 1,242
Î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,242
Î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,242
Î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 spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

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