button (activex control) work on protected sheet

#1
excentryc

Posted 12 January 2018 - 13:31

Active Member

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

nu merge

Back to top

#4
excentryc

Posted 12 January 2018 - 15:52

Active Member

Grup: Members
Posts: 1,497
Î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,497
Î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,497
Î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

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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