Excel 2010 宏与按钮的乐趣

Question

好的，我正在创建一个电子表格，该电子表格可以由其他用户编辑，但否则会被锁定。我希望做的是创建 3 个按钮。 “What If”、“Exit What if”和“Reset”

“What if”将允许用户输入数据。 “Exit What if”将允许用户退出输入模式并恢复到默认状态。文档。 然后“重置”将允许用户停留在“假设”状态，但将所有值重置为默认值。

然后我希望“如果”按钮出现在左侧的某个位置，但是当您单击它时，它会被“退出”和“重置”取代

Answer 1

我建议你多解释一下你的问题，但到目前为止我可以推断你有以下问题：

• 有一个包含公式和数据锁定的 Excel 工作表。
• 提供编辑页面，但不保存更改，作为对数据的“查阅”。

我主要可以提供以下服务：

• 创建一个备份表，用于保存您的基本页面
• 解锁该表以进行编辑。
• 如果退出编辑，则将备份中的数据恢复到主表中。
• 如果重置编辑，请执行与退出相同的过程并再次解锁数据。 （对于如何绘制代码流，复制的工作表已锁定其数据）

这将导致以下代码：

Sub BackUpData() 'this will be linked to you "what if" button
    Sheets("Data_Sheet").Select 'select shhet with data, just in case
    Range("A1:M56").Select ' range of your important data in your excel sheet
    Cells.Select
    Selection.Copy
    Sheets("BackUp_Sheet").Select
    Range("A1").Select     'lets paste the data in the same positión
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Data_Sheet").Select
End Sub

这会复制数据和公式，在不破坏数据源的情况下复制图表是另一个问题，也许您可​​以详细阐述这个问题。有图表吗？

Sub RestoreData() 'this will be linked to you "Reset" and "Exit" button
    Sheets("BackUp_Sheet").Select 'select shhet with data, just in case
    Range("A1:M56").Select ' range of your important data in your excel sheet
    Cells.Select
    Selection.Copy
    Sheets("Data_Sheet").Select
    Range("A1").Select     'lets paste the data in the same positión
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

通常的改进空间：

• 动态选择范围，但不要选择所有工作表，因为可能会出现内存问题。 （当我尝试在我的笔记本电脑中复制 excel 2007 的所有单元格时，我耗尽了资源：P）。
• 使用Application.ScreenUpdating消除闪烁。
• 我还没有检查当 *backup_Sheet* 隐藏时这是否有效。

另一个问题是解锁工作表中的数据。

Sub UnlockMySheet()
        'password here won`t protect the business logic or the code from prying eyes, just the user from themselves
        ActiveWorkbook.Unprotect 
        ActiveSheet.Unprotect
        Range("D9,B13").Select ' select the editable cells
        Selection.Locked = False
        Selection.FormulaHidden = False
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        ActiveSheet.EnableSelection = xlUnlockedCells
        ActiveWorkbook.Protect Structure:=True, Windows:=True
End Sub

通常的改进空间：

• 也许我忘记了保护协议，我只是将页面保持原样。 （抱歉没有时间证明这个代码）。
• 来自 stackoverflow 集体思想的建议。

也就是说，现在