Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "30;0;40;0"
ListBox1.RowSource = "A2:D10"
End Sub

'Private Sub CommandButton20_Click()
Sub gizle()
Dim g As String, a As Integer, f As String
Dim deg As String, sh As Worksheet
Dim yer As String, x As Integer
Set sh = Sheets(ActiveSheet.Name)
For a = 1 To ListBox1.ColumnCount
yer = sh.Columns(a).Width
deg = deg & CLng(yer) & ";"
Next
If ListBox1.ColumnWidths <> deg Then ListBox1.ColumnWidths = deg
r = ListBox1.ColumnWidths
For a = 0 To ListBox1.ColumnCount - 1
f = Split(r, " pt;")(a)
If a < 24 Then
If Controls("CheckBox" & a + 1) = True Then
x = 1: f = "0"
End If: End If
g = g & f & ";"
Next
If x = 1 Then
ListBox1.ColumnWidths = g
Else
ListBox1.ColumnWidths = deg
End If
End Sub

Private Sub CheckBox1_Click()
gizle
End Sub

Private Sub CheckBox2_Click()
gizle
End Sub

'...
'..
Private Sub CheckBox24_Click()
gizle
End Sub