[求助]如何做限制? 禁止移动,添加,删除SHEET?

coolboy

如何做限制? 禁止移动,添加,删除SHEET?

如题,

希望可以限制某个工作簿的使用,禁止移动或添加或删除sheet?

目的: 我想通过此方法,达到工作簿的sheet.index不被改变.(不知道,有没有更好的方法?)

LangQueS

本论坛复制的代码：

禁用拖放、填充柄和剪切功能(工作表代码)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.CellDragAndDrop = False   '禁用
   'Application.CellDragAndDrop = True   '恢复

End Sub

[此贴子已经被作者于2007-7-15 16:20:07编辑过]

coolboy

试了您的代码,似乎对与CELLS的拖拽管用,

但是对SHEET的拖转(移动)不管用啊.

LangQueS

一般使用保护工作表和保护工作簿。

taller

保护工作簿时选择“结构”是最好的方法

coolboy

 多谢二位版主.

那么还有个问题,

有几个工作簿sheet.index顺序被打乱了.

怎么更改sheet的index?

好像 sheets("xxx").index=1 提示错误

taller

index是只读属性，不可以直接修改，可以使用Move方法将其移动到指定的位置。

sheets("xxx").Move before:=Sheets(1)

LangQueS

Sub 工作表标签排序()
Dim i As Long, j As Long, nums As Long, msg As Long

msg = MsgBox("工作表按升序排列请选 '是[Y]'. " & vbCrLf & vbCrLf & "工作表按降序排列请选 '否[N]'", vbYesNoCancel, "工作表排序")

If msg = vbCancel Then Exit Sub

nums = Sheets.Count

    If msg = vbYes Then 'Sort ascending
        For i = 1 To nums
            For j = i To nums
                If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
                    Sheets(j).Move Before:=Sheets(i)
                End If
            Next j
        Next i
    Else 'Sort descending
     For i = 1 To nums
            For j = i To nums
                If UCase(Sheets(j).Name) > UCase(Sheets(i).Name) Then
                    Sheets(j).Move Before:=Sheets(i)
                End If
            Next j
        Next i
    End If
End Sub

taller

To LangQueS版：如果工作表较多时，可以考虑将工作表名称写入某列，而使用Excel排序功能，这样可以两次使用循环遍历工作表，而不需要双重循环。

LangQueS

QUOTE:

以下是引用taller在2007-7-15 18:02:44的发言：
To LangQueS版：如果工作表较多时，可以考虑将工作表名称写入某列，而使用Excel排序功能，这样可以两次使用循环遍历工作表，而不需要双重循环。

taller版主可否做个示意附件？