Dim cb As CommandBar
Sub gizle()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail Then
myRange.Columns(lastcolumn).ShowDetail = False
End If
ActiveSheet.Protect
End Sub
Sub goster()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail = False Then
myRange.Columns(lastcolumn).ShowDetail = True
End If
ActiveSheet.Protect
End Sub
Sub PopUpMenu()
Set cb = Application.CommandBars("Cell")
Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Seviyelendirme"
MenuObject.BeginGroup = True
'
With MenuObject
With .Controls.Add(Type:=msoControlButton)
.OnAction = "gizle"
.FaceId = 462
.Caption = "gizle"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "goster"
.FaceId = 464
.Caption = "goster"
End With
End With
End Sub
Sub Auto_open()
PopUpMenu
End Sub
Sub Auto_Close()
Set cb = Application.CommandBars("Cell")
cb.Controls("Seviyelendirme").Delete
End Sub
Sub gizle()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail Then
myRange.Columns(lastcolumn).ShowDetail = False
End If
ActiveSheet.Protect
End Sub
Sub goster()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail = False Then
myRange.Columns(lastcolumn).ShowDetail = True
End If
ActiveSheet.Protect
End Sub
Sub PopUpMenu()
Set cb = Application.CommandBars("Cell")
Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Seviyelendirme"
MenuObject.BeginGroup = True
'
With MenuObject
With .Controls.Add(Type:=msoControlButton)
.OnAction = "gizle"
.FaceId = 462
.Caption = "gizle"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "goster"
.FaceId = 464
.Caption = "goster"
End With
End With
End Sub
Sub Auto_open()
PopUpMenu
End Sub
Sub Auto_Close()
Set cb = Application.CommandBars("Cell")
cb.Controls("Seviyelendirme").Delete
End Sub